ac0=r0
	ac1=r1
	ac2=r2
	ac3=r3
	ac4=r4
	ac5=r5

	.title	DTEST 
.globl	$resr6,	$file
.globl	$resr5
	$VER==12.

.psect	global,d,ovr,gbl
$G$:	.=.+20

.psect	tables,d,ovr,gbl
$bits:	.word 1001
	.word 4004
	.word 20020
	.word 100100
	.word 1
	.word 2
	.word 4
	.word 10
	.word 20
	.word 40
	.word 100
	.word 200
	.word 400
	.word 1000
	.word 2000
	.word 4000
	.word 10000
	.word 20000
	.word 40000
	.word 100000

.psect	consts,d,con,lcl
$const:

.psect	,i,lcl
$code:
.psect	consts
	.word 	40201
	.word 	43656
	.word 	40531
	.word 	114632
	.word 	40606
	.word 	63146
	.word 	40506
	.word 	63146
	.word 	40231
	.word 	114632
	.word 	40263
	.word 	31463
	.word 	40514
	.word 	146315
	.word 	40414
	.word 	146315
	.word 	40703
	.word 	31463
	.word 	40314
	.word 	146315
	.word 	40214
	.word 	146315
	.word 	40723
	.word 	31463
.psect
$begin::
	mov	#$G$+4,r1
	mov	@sp,@#$G$+0
	mov	2(sp),@#$G$+2
	mov	r1,-(sp)
	mov	#116,-(sp)
	jsr	pc,$B70
.globl	$B70
	mov	(sp)+,@(sp)+
	tst	@r1
	bne	.+6
	jsr	pc,$B47
.globl	$B47
	mov	@r1,r3
	clr	@r3
	clrb	2(r3)
	movb	#36,2(r3)
	movb	#1,3(r3)
	mov	#1,4(r3)
	mov	#2,6(r3)
	mov	#3,10(r3)
	mov	#4,12(r3)
	mov	#5,14(r3)
	ldf	@#↑O$const+0,ac0
	stf	ac0,16(r3)
	ldf	#↑O40400,ac0
	stf	ac0,22(r3)
	ldf	@#↑O$const+10,ac0
	stf	ac0,32(r3)
	ldf	@#↑O$const+50,ac0
	stf	ac0,36(r3)
	ldf	@#↑O$const+14,ac0
	stf	ac0,76(r3)
	ldf	@#↑O$const+24,ac0
	stf	ac0,52(r3)
	ldf	@#↑O$const+4,ac0
	stf	ac0,112(r3)
	ldf	@#↑O$const+44,ac0
	stf	ac0,36(r3)
	ldf	@#↑O$const+54,ac0
	stf	ac0,62(r3)
	ldf	@#↑O$const+50,ac0
	stf	ac0,36(r3)
	ldf	@#↑O$const+40,ac0
	stf	ac0,62(r3)
	ldf	@#↑O$const+20,ac0
	stf	ac0,22(r3)
	ldf	@#↑O$const+34,ac0
	stf	ac0,26(r3)
	ldf	@#↑O$const+30,ac0
	stf	ac0,32(r3)
	clrb	22(r3)
	movb	#24,22(r3)
	mov	@r1,-(sp)
	mov	#116,-(sp)
	mov	(sp)+,r0
	jsr	pc,$B72
.globl	$B72
	jsr	pc,$B63
.globl	$B63
	.end